--pragma Profile(Ravenscar);

with System;

package Cyclic is

   task type Cyclic(Pri : System.Priority; Cycle_Time : Positive; Id : Positive) is
      pragma Priority(Pri);
   end Cyclic;

   C1 : Cyclic(20,2000000,1);
   C2 : Cyclic(20,1500000,2);

end Cyclic;
